#!/usr/bin/perl -w

#  FILE:   controlSF.pl
#  AUTHOR: Ruth Cobos
#  DATE:   15/11/00
#
#  DESCRIPTION: Barra de control del espacio de conocimiento.

#inicializar:
require ("init.pl");
require ("db.pl");

#imprimir cabecera
&print_header;

#Obtener los mensajes de ayuda, de los botones.
%H = &get_data("HelpMsg", "name", "\'updateData\'");
$altUpdateData = $H{txt.1};
%H = &get_data("HelpMsg", "name", "\'sendFile\'");
$altAddDes = $H{txt.1};
%H = &get_data("HelpMsg", "name", "\'kSpace\'");
$altKspace = $H{txt.1};

#Se procesa la entrada al script
%input = &parse_input;

#Se obtiene el tema con el que trabajar
$idTopic = $input{t};

#Si estamos en fase inicial se obtiene la estructura activa
$phase = &get_phase();
if ($phase == 0)
{
  $idStructure = $input{s};
  #Se obtienen los datos del tema en cuestion 
  %data = &get_data("Struct", "idTopic", $idTopic); 
}
if ($phase == 1)
{
  $idStructure = 0;
  #Se obtienen los datos del tema en cuestion 
  %data = &get_data("Topic", "idTopic", $idTopic); 
}

#Se obtiene el URL del tema en cuestion
$URL = $data{URL.1};

#Se obtiene el path de los frames a mostrar
$path = &get_path($URL);

if ($phase == 0)
{
  #Se obtien el path de los scripts de las operaciones
  $sendFile = $path . "sendFile.pl?t=$idTopic&s=$idStructure";
  $Kspace = $path . "kc.pl?t=$idTopic&s=$idStructure";
}
if ($phase == 1)
{
  #Se obtien el path de los scripts de las operaciones
  $sendFile = $path . "sendFile.pl?t=$idTopic";
  $Kspace = $path . "kc.pl?t=$idTopic";
}

print <<EOF1;
<HTML>
<HEAD>
<BASE TARGET="inform">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE BORDER=0 CELLSPACING=10 CELLPADDING=0>
<TD ALIGN="LEFT" VALIGN="MIDDLE">
<A HREF="$sendFile"><IMG SRC="./$IMG/sendFile.gif" BORDER=0 title="$altSendFile"></A>
<TD ALIGN="LEFT" VALIGN="MIDDLE">
<A HREF="$Kspace" TARGET="_top"><IMG SRC="./$IMG/Kspace.gif"  BORDER=0 title="$altKspace"></A>
EOF1
  ;
